home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / DOCZ16.ZIP;1 / DOCZ.LIF / DOCHEAD.CB < prev    next >
Encoding:
Text File  |  1994-04-24  |  2.0 KB  |  65 lines
  1. /*
  2.     This is the dochead.cb macro that inserts a DOCZ header at the
  3.     current cursor position.  You may wish to edit the DOCZ parameters
  4.     to your liking.
  5.  
  6. */
  7.  
  8. void dochead()
  9. {
  10.     string    funcname,
  11.                 libname,
  12.                 keyword,
  13.                 descrip,
  14.                 strbuf;
  15.  
  16.     use_tab_char("y");
  17.     tabs(4,7);
  18.  
  19.     get_parm(0,funcname,"Module name:",31);
  20.     get_parm(1,libname,"Library name:",31);
  21.     get_parm(NULL,keyword,"Application keyword:",64);
  22.     get_parm(NULL,descrip,"Description:",80);
  23.  
  24.     beginning_of_line();
  25.  
  26.     insert("#ifdef DOCUMENTATION\n");
  27.     insert(" ******************************* DOCZ Header *********************************\n");
  28.     sprintf(strbuf,".MODULE\t\t\t\t%s\n",funcname);
  29.     insert(strbuf);
  30.     sprintf(strbuf,".LIBRARY\t\t\t\t%s\n",libname);
  31.     insert(strbuf);
  32.     insert(".TYPE\t\t\t\t\tfunction\n");
  33.     insert(".SYSTEM\t\t\t\tmsdos-s\n");
  34.     insert(".SYSTEM\t\t\t\tmsdos-l\n");
  35.     insert(".SYSTEM\t\t\t\tvms\n");
  36.     insert(".SYSTEM\t\t\t\tunix\n");
  37.     insert(".AUTHOR\t\t\t\tSoftware Toolz\n");
  38.     insert(".LANGUAGE\t\t\tC\n");
  39.     sprintf(strbuf,".APPLICATION\t\t%s\n",keyword);
  40.     insert(strbuf);
  41.     sprintf(strbuf,".DESCRIPTION\n\t%s\n",descrip);
  42.     insert(strbuf);
  43.     insert(".ARGUMENTS\t\t\t\n");
  44.     save_position();
  45.     insert("\n");
  46.     insert(".NARRATIVE\t\t\t\n\n");
  47.     insert(".RETURNS\t\t\t\t\n\n");
  48.     insert(".NOTICE\n");
  49.     insert("\tCopyright 1991 Software Toolz, Inc. - Atlanta, Georgia\n");
  50.     insert("\n");
  51.     insert("\tAll rights reserved worldwide.  This program may not be reproduced, \n");
  52.     insert("\ttransmitted, transcribed, stored in a retrieval system or translated in \n");
  53.     insert("\tany human or computer language, in any form without the express written \n");
  54.     insert("\tpermission of Software Toolz, Inc.\n");
  55.     insert(".ENDOC\t\t\t\tEND DOCUMENTATION\n");
  56.     insert("\n");
  57.     insert("\tNote:  tab-stop=3\n");
  58.     insert(" *****************************************************************************\n");
  59.     insert("#endif /* DOCUMENTATION */\n");
  60.     insert("\n");
  61.     restore_position();
  62.     message("Fill-in ARGUMENTS, NARRATIVE, and RETURNS");
  63. }
  64.  
  65.